ST558-651 Project 1

#let's look at all franchises via franchise totals
data <- get_nhl_data('Franchise Totals')

#let's look at active franchises first
#and pivot wider so that playoffs and reg season 
#are on the same line of data
franchises <- data %>% filter(activeFranchise == 1) %>%
                mutate(game_type = if_else(gameTypeId == 2, 
                                           'regular', 'playoff')) %>%
                select(franchiseId, teamName, gamesPlayed, 
                       wins, losses, game_type) %>%
                pivot_wider(names_from = game_type, values_from = 
                              c(gamesPlayed, wins, losses))


franchises$win_pct_playoff <- franchises$wins_playoff / 
                        (franchises$wins_playoff + franchises$losses_playoff)

g <- ggplot(data=franchises, aes(x=gamesPlayed_regular, y=win_pct_playoff)) +
      geom_point(aes(name=teamName))

p <- ggplotly(g)